home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANF8.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
13KB
|
425 lines
VERSION 2.00
Begin Form Form8
BackColor = &H00808080&
ClientHeight = 4620
ClientLeft = 375
ClientTop = 1590
ClientWidth = 8880
ControlBox = 0 'False
Height = 5025
Left = 315
LinkMode = 1 'Source
LinkTopic = "Form8"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4620
ScaleWidth = 8880
Top = 1245
Width = 9000
Begin CommandButton Command2
Caption = "Cancel"
Height = 300
Left = 4995
TabIndex = 24
Top = 4110
Width = 3000
End
Begin CommandButton Command1
Caption = "Ok"
Height = 300
Left = 885
TabIndex = 23
Top = 4110
Width = 2940
End
Begin PictureBox Picture7
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8730
TabIndex = 6
Top = 2985
Width = 8760
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 7
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 2475
TabIndex = 22
Top = 330
Version = 268435458
Width = 6195
End
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 6
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 810
TabIndex = 21
Top = 330
Version = 268435458
Width = 960
End
Begin Label Label10
Caption = "Ages:"
Height = 240
Left = 1920
TabIndex = 15
Top = 525
Width = 555
End
Begin Label Label9
Caption = "Number:"
Height = 225
Left = 45
TabIndex = 14
Top = 525
Width = 750
End
Begin Label Label7
Caption = "Dependents (not listed by Co-Borrower):"
Height = 225
Left = 45
TabIndex = 13
Top = 45
Width = 3480
End
End
Begin PictureBox Picture6
Height = 900
Left = 5760
ScaleHeight = 870
ScaleWidth = 3030
TabIndex = 5
Top = 2010
Width = 3060
Begin CheckBox Check1
Caption = "Separated"
Height = 240
Index = 3
Left = 1560
TabIndex = 27
Top = 585
Width = 1215
End
Begin CheckBox Check1
Caption = "Married"
Height = 240
Index = 2
Left = 1560
TabIndex = 26
Top = 315
Width = 975
End
Begin CheckBox Check1
Caption = "Single"
Height = 240
Index = 1
Left = 1560
TabIndex = 25
Top = 45
Width = 900
End
Begin Label Label6
Caption = "Marital Status:"
Height = 210
Left = 135
TabIndex = 12
Top = 330
Width = 1305
End
End
Begin PictureBox Picture3
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 5370
TabIndex = 2
Top = 2010
Width = 5400
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 18
Top = 330
Version = 268435458
Width = 5280
End
Begin Label Label3
Caption = "Home Phone Number (area code):"
Height = 225
Left = 45
TabIndex = 9
Top = 45
Width = 2940
End
End
Begin PictureBox Picture5
Height = 900
Left = 6945
ScaleHeight = 870
ScaleWidth = 1830
TabIndex = 4
Top = 1035
Width = 1860
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 5
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 405
TabIndex = 20
Top = 315
Version = 268435458
Width = 975
End
Begin Label Label5
Alignment = 2 'Center
Caption = "Years in School:"
Height = 225
Left = 45
TabIndex = 11
Top = 45
Width = 1740
End
End
Begin PictureBox Picture4
Height = 900
Left = 4755
ScaleHeight = 870
ScaleWidth = 1830
TabIndex = 3
Top = 1035
Width = 1860
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 510
Index = 4
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 210
TabIndex = 19
Top = 315
Version = 268435458
Width = 1425
End
Begin Label Label4
Alignment = 2 'Center
Caption = "Borrower's Age:"
Height = 210
Left = 45
TabIndex = 10
Top = 45
Width = 1740
End
End
Begin PictureBox Picture2
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 4380
TabIndex = 1
Top = 1035
Width = 4410
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 17
Top = 330
Version = 268435458
Width = 4290
End
Begin Label Label2
Caption = "Social Security Number:"
Height = 225
Left = 45
TabIndex = 8
Top = 45
Width = 2115
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 0
Top = 60
Width = 8790
Begin VBedit BEditF8
CellHeight = 480
CellWidth = 360
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 16
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label1
Caption = "Borrower's Name (include Jr. or Sr. if applicable):"
Height = 225
Left = 45
TabIndex = 7
Top = 45
Width = 4230
End
End
End
Sub Check1_Click (Index As Integer)
If Form8.Visible = True Then
If Form8.Check1(Index).Value = 1 Then
For i = 1 To 3
If i <> Index Then
Form8.Check1(i).Value = 0
End If
Next i
End If
End If
End Sub
Sub Command1_Click ()
MainRec.G.G1 = Form8.BEditF8(1).Text
MainRec.G.G2 = Form8.BEditF8(2).Text
MainRec.G.G3 = Form8.BEditF8(3).Text
MainRec.G.G4 = Form8.BEditF8(4).Text
MainRec.G.G5 = Form8.BEditF8(5).Text
MainRec.G.G6 = Form8.BEditF8(6).Text
MainRec.G.G7 = Form8.BEditF8(7).Text
For i = 1 To 3
If Form8.Check1(i).Value = 1 Then
MainRec.G.GC1 = i
MainRec.G.G8 = Form8.Check1(i).Caption
Exit For
Else
MainRec.G.GC1 = 0
MainRec.G.G8 = ""
End If
Next i
UpdateLabelG
Form8.Hide
End Sub
Sub Command2_Click ()
Form8.Hide
End Sub
Sub Form_Load ()
Form8.Left = 300
Form8.Top = (Screen.Height - Form8.Height) / 2
End Sub
